home *** CD-ROM | disk | FTP | other *** search
/ Developer Helper 1: Phil & Dave's Excellent CD / Excellent CD HFS.raw / HyperCard / HyperCard 1.2.2 International / HyperCard Swedish (S-1.2.2) / Buntar / Bas / card_3011.txt < prev    next >
Text File  |  1989-01-16  |  5KB  |  227 lines
  1. -- card: 3011 from stack: in
  2. -- bmap block id: 4051
  3. -- flags: 4000
  4. -- background id: 2282
  5. -- name: User Preferences
  6. ----- HyperTalk script -----
  7. on openCard
  8.   setUserLevel the userLevel
  9.   if card field "User name" is empty
  10.   then click at the loc of card field "User name"
  11. end openCard
  12.  
  13. on setUserLevel whatLevel
  14.   set userLevel to whatLevel
  15.   if the userLevel is whatLevel then
  16.     put the userLevel into card field "User Level"
  17.     set hilite of button "Bl√§ddra" to the userLevel = 1
  18.     set hilite of button "Skriva text" to the userLevel = 2
  19.     set hilite of button "Rita bilder" to the userLevel = 3
  20.     set hilite of button "Skapa objekt" to the userLevel = 4
  21.     set hilite of button "Skriva manus" to the userLevel = 5
  22.     set visible of button "Text-piltangenter" to the userLevel >= 2
  23.     set visible of button "Snabbtangenter" to the userLevel >= 3
  24.     set visible of button "Osynliga meddelanden" to the userLevel = 5
  25.     set hilite of button "Text-piltangenter" to the textArrows
  26.     set hilite of button "Snabbtangenter" to the powerKeys
  27.     set hilite of button "Osynliga meddelanden" to the blindTyping
  28.   else
  29.     set hilite of the target to false
  30.   end if
  31. end setUserLevel
  32.  
  33.  
  34.  
  35. -- part 1 (button)
  36. -- low flags: 00
  37. -- high flags: A006
  38. -- rect: left=95 top=145 right=166 bottom=223
  39. -- title width / last selected line: 0
  40. -- icon id / first selected line: 0 / 0
  41. -- text alignment: 1
  42. -- font id: 0
  43. -- text size: 12
  44. -- style flags: 0
  45. -- line height: 16
  46. -- part name: Bläddra
  47. ----- HyperTalk script -----
  48. on mouseUp
  49.   setUserLevel 1
  50. end mouseUp
  51.  
  52.  
  53.  
  54. -- part 2 (button)
  55. -- low flags: 00
  56. -- high flags: A006
  57. -- rect: left=95 top=187 right=208 bottom=223
  58. -- title width / last selected line: 0
  59. -- icon id / first selected line: 0 / 0
  60. -- text alignment: 1
  61. -- font id: 0
  62. -- text size: 12
  63. -- style flags: 0
  64. -- line height: 16
  65. -- part name: Rita bilder
  66. ----- HyperTalk script -----
  67. on mouseUp
  68.   setUserLevel 3
  69. end mouseUp
  70.  
  71.  
  72.  
  73. -- part 3 (button)
  74. -- low flags: 00
  75. -- high flags: A006
  76. -- rect: left=95 top=208 right=229 bottom=223
  77. -- title width / last selected line: 0
  78. -- icon id / first selected line: 0 / 0
  79. -- text alignment: 1
  80. -- font id: 0
  81. -- text size: 12
  82. -- style flags: 0
  83. -- line height: 16
  84. -- part name: Skapa objekt
  85. ----- HyperTalk script -----
  86. on mouseUp
  87.   setUserLevel 4
  88. end mouseUp
  89.  
  90.  
  91.  
  92. -- part 4 (button)
  93. -- low flags: 00
  94. -- high flags: A006
  95. -- rect: left=95 top=229 right=250 bottom=223
  96. -- title width / last selected line: 0
  97. -- icon id / first selected line: 0 / 0
  98. -- text alignment: 1
  99. -- font id: 0
  100. -- text size: 12
  101. -- style flags: 0
  102. -- line height: 16
  103. -- part name: Skriva manus
  104. ----- HyperTalk script -----
  105. on mouseUp
  106.   setUserLevel 5
  107. end mouseUp
  108.  
  109.  
  110.  
  111. -- part 5 (button)
  112. -- low flags: 80
  113. -- high flags: A005
  114. -- rect: left=211 top=187 right=208 bottom=339
  115. -- title width / last selected line: 0
  116. -- icon id / first selected line: 0 / 0
  117. -- text alignment: 1
  118. -- font id: 0
  119. -- text size: 12
  120. -- style flags: 0
  121. -- line height: 16
  122. -- part name: Snabbtangenter
  123. ----- HyperTalk script -----
  124. on mouseUp
  125.   set powerKeys to the hilite of button "Snabbtangenter"
  126. end mouseUp
  127.  
  128.  
  129.  
  130. -- part 7 (field)
  131. -- low flags: 00
  132. -- high flags: 0000
  133. -- rect: left=196 top=91 right=111 bottom=392
  134. -- title width / last selected line: 0
  135. -- icon id / first selected line: 0 / 0
  136. -- text alignment: 0
  137. -- font id: 3
  138. -- text size: 14
  139. -- style flags: 0
  140. -- line height: 18
  141. -- part name: User name
  142. ----- HyperTalk script -----
  143. on closeField
  144.   global userName
  145.   put card field "User Name" into userName
  146. end closeField
  147.  
  148.  
  149.  
  150. -- part 8 (button)
  151. -- low flags: 00
  152. -- high flags: E006
  153. -- rect: left=95 top=166 right=187 bottom=223
  154. -- title width / last selected line: 0
  155. -- icon id / first selected line: 0 / 0
  156. -- text alignment: 1
  157. -- font id: 0
  158. -- text size: 12
  159. -- style flags: 0
  160. -- line height: 16
  161. -- part name: Skriva text
  162. ----- HyperTalk script -----
  163. on mouseUp
  164.   setUserLevel 2
  165. end mouseUp
  166.  
  167.  
  168.  
  169. -- part 9 (field)
  170. -- low flags: 81
  171. -- high flags: 0000
  172. -- rect: left=173 top=125 right=144 bottom=198
  173. -- title width / last selected line: 0
  174. -- icon id / first selected line: 0 / 0
  175. -- text alignment: 0
  176. -- font id: 3
  177. -- text size: 12
  178. -- style flags: 0
  179. -- line height: 16
  180. -- part name: User Level
  181.  
  182.  
  183. -- part 13 (button)
  184. -- low flags: 80
  185. -- high flags: A005
  186. -- rect: left=211 top=229 right=250 bottom=381
  187. -- title width / last selected line: 0
  188. -- icon id / first selected line: 0 / 0
  189. -- text alignment: 1
  190. -- font id: 0
  191. -- text size: 12
  192. -- style flags: 0
  193. -- line height: 16
  194. -- part name: Osynliga meddelanden
  195. ----- HyperTalk script -----
  196. on mouseUp
  197.   set blindTyping to the hilite of button "Osynliga meddelanden"
  198. end mouseUp
  199.  
  200.  
  201.  
  202. -- part 15 (button)
  203. -- low flags: 00
  204. -- high flags: A005
  205. -- rect: left=211 top=166 right=187 bottom=352
  206. -- title width / last selected line: 0
  207. -- icon id / first selected line: 0 / 0
  208. -- text alignment: 1
  209. -- font id: 0
  210. -- text size: 12
  211. -- style flags: 0
  212. -- line height: 16
  213. -- part name: Text-piltangenter
  214. ----- HyperTalk script -----
  215. on mouseUp
  216.   set textArrows to the hilite of button "Text-piltangenter"
  217. end mouseUp
  218.  
  219.  
  220.  
  221. -- part contents for background part 6
  222. ----- text -----
  223. Inställningar
  224.  
  225. -- part contents for card part 9
  226. ----- text -----
  227. 2